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1 
2 
3 

4 

5 

6 

7 

B 

9 

12 

11 

12 

13 

14 

15 

16 

17 

la 

19 



ii>o»COpyRir,hT 19ft9, DIGITAL fQUIPMENT CORP,, MAYNARD, MASS,o»» 

JTHIS SUB-PROGRAM ASSEMBLED WITH SYSTEM PARAMETER FILE - S,MAC(V414) 

VLIST 

LIST 
TITLE nCSINT - INT, SERV, FOR DATA COMMUNICATION SYSTEM 63(1 - V4(12 
SURTTL M. FREORIKSEN/TH/CHW TS 7 MAY 69 
XP VDCSIT,4;i2t 

(PUT VERSION NUMBER IN GLOB LISTING AND LOADER STORAGE M«P 
iMOOULAR HAROWAHE INTERFACE WITH EITHER SCNSFR OR TTYSER 
EXTERMAL SCNON.SCNOFF.TYPX 
IFF FTTTYSEH,<XP FUl T WX , 20?I000> 
IFN FTTTYSFR,<XP FULTWX,4>» 



ncsiM 



20 
21 
?2 
23 

25 
26 
27 
28 
29 
:?0 



INT. SERV. FO" DATA COMMUN'lnATION SYSTE 
1. FREnRIKSE^/TH/CMW TS 7 MAY 69 



000010 
0000'?!6 
00(?0?!2 

000025 



63r - V4'»2 
ACCUMULATOR ASSIGNMENTS 
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CHREC=TEm 
nDR=DEVDAT 
LIME=TAC1 
HP0S=DAT 

;BYTE POINTERS 
EXTERNAL PLASTC 



lAC FOR CHARACTER 

lAHDHESS OF rEVlCE DATA BLOCK 

|SCA"NER LINE NUMBER 

(HORIZrNTAL POSITIOK OF TTY,!0-71) 



DCSIMT 



- IMT. SERV, FOR DATA COMMUNICATION SYSTEM 63PI - V402 
M. FREDRIKSEN/TH/CHU TS 7 MAY 69 
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31 
32 
33 
34 
35 
36 
3 7 
3 8 
3 9 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



00000 
00CI0f 
00000 
00000 
00000 
000051 
00000 
00000 
00000 
00001 



201040 
730200 
7303C0 
730200 
7303?0 
730440 
367040 
730200 
263140 



100000 
004010 
001000 

004000 
000010 
000002 
000002 ' 
000000 

000000 



;DEVICE DEPEMDEMT PORTION OF 1 MI TI AL I ZAT 1 OM CODE 
iCAUL! MOVEI TACCHAMNEL ''UMBFR 
! PUSHJ PDP.SCMIM 

INTERNAL SCNINI 



DCSINl I 
SCNINI I 



MOVEI TAC. 100000 

coNO ocsAitaia 
coNsz ncsA, 1000 

CONO OCSA, 4000 

CONSZ ncsA, 10 

DATAI DCSB, TACl 
SOJG TAC, ,-4 
CONO OCSA.FSNCHN 
POPJ POP. 



(RELEASE XMITTFR, RECEIVER 



(ASSIGN INTERRUPT CHANNELS 



JSCANNER INTERRUPT SERVICE ROUTINE, 



50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
50 
^1 
62 
63 
64 
65 



000011 
000011 
0000)2 
000013 
000014 
000015 
000016 
000017 
000020 
000021 
000022 



730340 

254000 
2640C»0 
730340 
254000 
730640 
730440 
301110 
263140 
254000 



ENTHy nCSINT 

INTERNAL SCNINT 

EXTERNAL SCNSAV,TeONLN,TTYTA'',XMTINT.TYPE.INUS2.RECINT,FSNCHN 



001010 

000011' 

000000 

000010 

000036' 

000002 

000010 

000000 

000000 

000000 



DCS I NT I 

SCNINT ! 



CONSO DCSA.1010 
JRST SCNINT 
JSR SCNSAV 
CONSD OCSA, 10 
JRST SCNINI 
CON I OCSB.LINE 
DATAI DCSH, CHREC 
CAIL LINE,TCONLN 
POPj POP. 
JRST RECpiT 



IRECEIVER FLAG? 
INO.XMITTER FLAG 
(SCANNER INPUT, 

(ARE WE ENABLED FOR THIS LINE NU"BFR' 
;ND, DISMISS INTERRUPT 
(RECEIVER INT, HANDLER 



DCSINT - if'T. SERV, FOR DATA COMmuv I CAT I ON SVSTE" 
". FREDRIKSE'VTh/CHW TS 7 MAY A9 



63." - \/4?2 
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S6 








J? 








68 








69 








70 








71 


(10i»0?3 






72 


P1000P3 


3323?^2 


000000 


73 


(^000?4 


254t)i?0 


000042 


74 


(^0(10?5 


760140 


000000 


75 


?'0(10?6 


P540P0 


00 0000 


76 


7000P7 


201240 


000000 


77 


000030 


303l;?0 


000020- 


78 


000031 


254000 


000000 


79 


5^00032 


302100 


000030' 


80 


000033 


730340 


000700 


81 


000034 


254i)00 


000000 


82 


^00035 


254070 


000000 


83 








3 4 








85 


000036 






86 


300036 


730040 


000002 


87 


000037 


201040 


000007' 


S8 


?a0040 


730201 


004000 


89 


000041 


?54e!?0 


0000;?0 



.-CHMMON PARTS np CTY A>'J SHAVNER piTERRuPT SERVICE ROUTpiES, 

EXTERNAL 1\JEST,DDRSHC 
INTERNAL TCD^M 



SCVIM! 



SKIPE DDR.TTYTABfLIN"^) 
JRST INUSE 
PUSHJ POP.DDRSRC 
JRST TYPx 
"OVEI HPOS.0 
CAILE LlNiEiTCONL" 
JRST INJFST 

CAIE line.tcoNln 
roNso ncsA,700 

JRST IMUS2 
JRST TYPE 



DATAI nCSAiLINE 
^'OVE! TAC.ESNChn 
CCMC DCSA,4000(TAC) 
JRST XMTINT 



toATA Block assigneo? 

(YES 

ISFARCH FOR FREE TTY DEV. DATA BLOCK 

INQNE FOUND, TYPE X 

(ASSUME TTY IS AT BEGIN OF FORM 

(PSEUOO COMSCLE? 

(YES 

IIS IT CTY? 

INfl, IS IT HALF DUPLEX? 

lYES, ACCEPT CHAR Awn PROCESS 

(NO, ECHO CHAR ON FULL DUPLEX 

OEFORE PROCESSING IT 



(GET LINE NO. FROM FULL DUPLEX. 

(RELEASE XMITTER SCANNER 
UN SCNSER OR TTYSER 



ncSI'^T 



- INT. ke^v, for Data com^umcation system 63f" 

M. FREORIKSE^/TH/CHW TS 1 ^AY 69 



V4?I2 
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90 



JCOMMON TO HrCFIVE AND TRA^iS'MT, 



91 
92 


n00042 


553B?0 


0k530'?6 INUSr: HPR?S nD'5 iLiN 


93 


!«0C243 


3063-^0 


777777 


CAliV Qr^Bi-l 


94 


?0C.04') 


263140 


000000 


fOPj POP, 


95 


5?t!C!»4a 


?0ce?.6 


000072 


"ovt los.oEvioscnop) 


96 


Caf 046 


305170 


000032' 


C-ArcF Ll^'EiTCO'^'LN 


97 


!?I0I?I047 


73P340 


B007C0 


COMSO ncsA.700 


98 


5!0(105Z 


2540.10 


000034 ' 


JR?T INUS2 


99 


f«0(10Kl 


A030'-"0 


000004 


fLME lOS.FUuTWy 


\M 


P'0W0';2 


?540!'0 


0000«;0' 


JRST INUS2 


1711 


fmtii'hz 


7306!?2 


000000 


rON'C DCSB.dlNE) 


1'7!2 


5'0Pi0';4 


730140 


000010 


TATAO TCSA.CHRFC 


1713 


(»000'55 


1374!'0 


00''000 


npB threcplastc 


1P14 


?0fl056 


263140 


000000 


POPj pnp. 



niSABUED IF Rh ttytab=-i 



(SETUP lOS 

ICTY OR PTY? 

(Mfl, HALF nuPLEX? 

(YES 

MS THIS SELF ECHOEING FULL nUPLEXJ 

(YES, (USER TYPED CONROL p) 

(FULL nuPLEX SCANNER, ECHO OMAR. 



iDISf-ISS INTERRUPT 



ncsiMT 


- IMT. 




". FRE 


ll^S 




1!?6 




I?? 




1C8 




1(?'9 




11(5 


'0P!057 


111 


i?0t»0'i7 


112 




113 


C"0(?060 


114 


l^000ftl 


115 


l»0t>062 


116 


i»00a63 


117 


l?0006'l 


118 


P051065 


119 




1?0 
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70l36i"0 000000 

7306.''2 005'000 

730110 000010 

7006P0 00!'a00 

33?0^0 00005^6 

1374r'0 0000155' 

263140 00'1000 



;HOUTINe TO OUTPUT A CHARACTfR ON' A LINE 
iCALLEO FROM TYP OR TYPl IN qc^iSFR 



INTERNAL SCNTYP 
SCNTYHj 

OCSTYP! coijo pi.scnoff 
oonc ocsr, (line) 

OATAO DCRA.ChREC 

rOMo PI .scNON' 

SKIPE ODB 

nPP CHREr.PLASTC 

POPj POP, 



ITURN SCANNER PI OFF IN CASE AT USER lEvfl 
;S0 NO INTERRUPTS BETWEEN CONO, A'xlD DATA" 
INO 

ITURN SCANNER PI BACK ON 
ISAVE CHAR FOR FULL DUPLEX 



DCSINT 



IN^T, SERV, FOR DATA COMMUNICATION SYSTEi- 6351 
'. FREDRIKSEN/TH/CHW TS 7 MAY 69 



V402 
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. IJl 
HO ERRORS DETECTED 
PROGRAM BREAK IS 000S66 



END 



OCSIVT 



■ IMT. serv, for Data co^imuwication system 63- 
?y"bol table 



VA7.2 
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CHREC 

nc?ivT 

FSNCHN 
HPOS 
INUSr 
POP 

Schorr 

SC^ITYP 

tcom" 
ttytab 

VDCSIT 



PB^Kie 




"BHKll ' 


INT 


i^efii25< 


rxT 


CB0f)37 ' 


EXT 


?i0("0i'5 




M0R(142 ' 




oe??/^ 


INT 


f 051(136' 




"dTill'iT 


EXT 


? d 5 7 ' 


INT 


00C!t)?3' 


INT 


r»000?3' 


EXT 


!>004?2 


INT 



HAT 

iCSTVp 

'EVDAT 

^■TTTYS 

INJEST 

ICS 

PL^STC 

SCNIMI 

TAC 

TCOKLN 
TYPE 
VMTIMT 



777777 



^0a0;'5 


INT 


^as"0=7 • 




i'0a0''5 


INT 


777777 




!'0:"0.-^i • 


rxT 


n0vl0?!0 


INT 


('000l'4 • 


FXT 


■701^000 • 


INT 


("05"0fr2' 


FXT 


r000[>i 


INT 


"■00046 ' 


FXT 


?0J»0:?5> 


FXT 


£'000411 


FXT 



OCSINI 

noR 

DEVIOS 

FULTWX 

INUS3 

LINE 

RECINT 

RCNINT 

SCNSAV 

TACl 

TEM 

TYPX 



!''0000B 1 




0000i16 




!!0000Z 


r NT 


000004 


INT 


000052' 


FXT 


000002 




000022' 


FXT 


0000] 1 ' 


INT 


030013' 


FXT 


000002 


INT 


000010 


INT 


000026' 


fXT 



A 


6* 


6 


ACl 


6# 


6 


*C2 


6« 


6 


4C3 


6«l 




AEFERR 


6« 


6 


4L 


6« 


6 


ASSCON 


6*1 


6 


ASSPRG 


6* 


6 


13 


6# 


6 


RUFPNT 


6# 


6 


BUFHRD 


6# 


6 


CHREC 


?!# 


62 


CLKR 


6# 


6 


t;LSIM 


6# 


6 


rtsouT 


6# 


6 


CMWB 


6« 


6 


CORCNT 


6* 


6 


n 


6# 


6 


HAT 


6# 


6 


DCL 


6# 


6 


net I 


6« 


6 


ncLO 


6# 


6 


nCLR 


6# 


6 


ncsA 


39 


t0 


ncse 


43 


61 


DCSIMI 


37# 




ncsiwT 


50 


■jS* 


ncsTYP 


111* 




DDB 


22# 


72 


DDBSRC 


68 


74 


DO I 


6# 


6 


DDO 


5# 


6 


OEM 


5# 


6 


OEVADR 


6111 


6 


DEVBUF 


6# 


6 


nEVCMR 


6# 


6 


DEVCTR 


6# 


6 


DEVDAT 


6* 


6 


DEVEXT 


6# 


6 


OEVFIL 


6i» 


6 


nEVIAD 


6* 


6 


flEVIOS 


6# 


6 


□EVLBG 


6# 


6 


nEVMOD 


6# 


6 


OEVNAM 


6# 


6 


nEVOAD 


6# 


6 


DEVPPN 


6# 


6 


DEVPTR 


6i» 


6 


DEVSER 


6# 


6 


nCF 


6# 


6 


nHNG 


6ll( 


6 


niN 


6* 


6 


niNi 


6# 


6 



1132 



24 



41 
62 



92 



IPii 



114 117 



4i; 

101 



45 
113 



95 



56 



116 



59 



fl6 



97 



15)2 



114 



22 



95 



OLK 


6# 


6 




nMT 


6# 


6 




DNAERR 


6# 


6 




nou 


b# 


6 




nfi 


6* 


6 




nRL 


5« 


6 




nRN; 


6* 


6 




nSER 


6i» 


6 




nsi 


6# 


6 




0SKRi.e 


6# 


6 




nSD 


6I» 


6 




nv4V4L 


6# 


6 




nVCQR 


6# 


6 




nVDIR 


6# 


6 




DVDIRI 


5# 


6 




nvnis 


bit 


6 




nvnsK 


b# 


6 




DVnTl 


btt 


6 




nviN 


b# 


6 




nVLNG 


6« 


6 




nVLPT 


b* 


6 




nVMTA 


btt 


6 




DVPUT 


b* 


6 




nVPTP 


6« 


6 




nVPTR 


6« 


6 




PVTTY 


6*1 


6 




ENTRp 


b# 


6 




FHMERR 


6# 


6 




FNFERR 


6# 


6 




FRRSrG 


bit 


5 




fsmchn 


45 


53 


87 


FT2RFL 


6# 






F T A T T A 


6# 






FTCHEC 


6# 






FTFX4M 


6# 






FTFIN'l 


6# 






FTGETT 


6# 






FTHALT 


6* 






FTKCT 


6« 






FTHOK^P 


5# 






FTPRV 


6# 






FTRA10 


6# 






FTRCHK 


6# 






FTREAS 


6# 






FTSLFE 


6# 






FTTALK 


6# 






F T T ; 'J C 


6# 






FTTR4C 


6* 






FTTRPS 


6# 






FTTTYS 


6/< 


16 


18 


FULTWX 


19# 


19 


99 


HPns 


?4# 


76 




HSAMSK 


6« 


6 





HSAPOS 


b# 


6 


HSASIH 


tit 


6 


HUNGHT 


bit 


6 


HUN'GST 


6# 


6 


I 


b# 


6 


IB 


bit 


6 


IBUFB 


btl 


6 


ICLOSB 


bit 


6 


ILM 


b# 




ILUERR 


bH 


6 


TN9Fn 


6* 


6 


INITR 


btt 


6 


INJEST 


6B 


78 


INPB 


6# 


6 


TNUS? 


53 


81 


INUSE 


73 


92# 


TO 


6* 


6 


lOACT 


6# 


6 


lOBEG 


6# 


6 


lORKTL 


6# 


6 


lOROT 


6# 


6 


lOCOM 


bit 


6 


lOOEND 


bit 


6 


lODEBR 


&« 


6 


lOnTER 


bH 


6 


TOENH 


bit 


6 


lOFST 


bit 


6 


lOIMPM 


ill 


6 


lONRCK 


btl 


6 


lOPAR 


bit 


b 


IDS 


bit 


6 


lOTEMO 


bU 


6 


TOUSE 


bit 


6 


TOW 


6# 


6 


lOWC 


6# 


6 


IPPERR 


6# 


6 


ITEM 


bit 


6 


JArCT 


bit 


6 


JBFADR 


bit 


6 


JBFCTR 


6« 


6 


J8FPTR 


bit 


6 


J8UF 


bit 


6 


JDAT 


btt 


6 


JERR 


bit 


6 


JLGG 


b# 


6 


JNA 


bit 


6 


jRa 


bit 


6 


JWPOS 


bit 


6 


JWSI? 


bit 


6 


JXPN 


bit 


6 


LINE 


!3tt 


61 


LISTSN 


b 




LOOKR 


btt 


6 



93 



100 



95 



99 



63 



72 



77 



79 



P6 



96 



1!^1 



113 



MECOLE 


b# 


6 






NECERR 


6# 


6 






MLFEOR 


6« 


6 






NSnERR 


6« 


6 






NSFERR 


6# 


6 






NSHF 


6« 


6 






NSRRI T 


6« 


6 






fiSwP 


6« 


6 






NX" 


6# 








OBLIFc 


6« 


6 






nCLOSB 


b* 


6 






nUTBFB 


t# 


5 






0UTP9 


6# 


6 






POP 


b# 


6 


46 


64 


PI 


111 


115 






PLASTC 


29 


1?3 


117 




POV 


6# 








PROG 


6# 


6 






PRTERR 


6« 


6 






PVSPYA 


b« 


6 






PVSPVM 


6« 


6 






PVTRPS 


5# 


6 






RECINT 


53 


65 






REMMO 


6* 


6 






BUN 


6« 


6 






RUNARU 


6# 


6 






RUNMSK 


6# 


6 






SCNIM 


60 


B5« 






SCNIMI 


35 


38# 






SCNIMT 


52 


56tt 


57 




SCMOFF 


14 


111 






SCNOr 


14 


115 






SCNS4V 


53 


56 






SCNTYP 


ica 


110# 






so 


6# 


6 






SHF 


6# 


6 






SHRSFG 


6# 


6 






SLEVFL 


6* 


6 






SLICE 


5i» 


6 






SNA 


btt 


6 






SPYSEG 


b* 


6 






STOPIO 


btt 


6 






sttyb: 


btt 


6 






STTYPF 


btt 


6 






SUP 


btt 


6 






SWPCLR 


bit 


6 






SYSOFV 


btt 


6 






TAG 


btt 


6 


38 


44 


TAGl 


bit 


6 


?3 


43 


TCOMM 


69 


71« 






TCONLN 


53 


63 


77 


79 


T£M 


6# 


6 


?1 




TRNERR 


6# 


6 







74 



94 



1.'4 



118 



87 



96 



88 



TTYATC 


btt 


6 


TTY81U 


6« 


6 


TTYTA8 


53 


72 


ttyu<;e 


&# 


6 


TYPE 


53 


82 


TYPX 


14 


76 


'JCHM 


6# 


6 


UI0M1D 


bt) 


6 


USRuaD 


btt 


6 


UUD 


btt 


6 


UWP 


btt 


6 


UWPOFF 


b» 


6 


VDCSIT 


10# 


10 


WTMASK 


bit 


6 


XMTINT 


53 


K9 



CODES 


6* 


DISAHL 


6# 


EN«BLE 


6# 


NOSCME 


bit 


NOSHIJF 


6# 


nUEUrS 


(,# 


SCHEnU 


bn 


SHUFFL 


6# 


STARTO 


6# 


XP 


6# 



18 



